10 IFZ>0THEN63001
100 REM:*********************************
200 REM:       AMAZING GRACE            *
300 REM:  (C) 1984 BY TOM JEFFRIES      *
400 REM:                                *
500 REM:*********************************
600 DATA8,71,6,0,13,1,1,8,167,6,0,13,1,1,8,12,7,0,13,1,1,8,119,7,0,13,1,1
700 DATA8,233,7,0,13,1,1
800 DATA8,97,8,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
900 DATA13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16
1000 DATA0,13,2,9,31,21,13,0,1,8,143,12,0,13,1,1
1100 DATA8,97,8,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
1200 DATA13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16
1300 DATA2,0,13,2,9,31,21,13,0,1,8,143,12,0,13,1,1,11,135,33
1400 DATA8,97,8,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
1500 DATA13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16,11,62,42
1600 DATA0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,135,33,0,13,4,1,8,97,8
1700 DATA11,62,42,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
1800 DATA13,2,9,31,21,13,0,1,8,143,12,0,13,1,1,9,209,18,10,210,15,12,162,37
1900 DATA0,13,0,1,8,143,12,0,13,1,1,8,48,11,12,135,33
2000 DATA0,13,0,1,8,195,16,0,13,1,1,9,49,28,10,96,22,0,13,0,1
2100 DATA8,195,16,0,13,1,1,9,96,22,10,48,11,12,156,26,0,13,1,11,49,28,13,1
2200 DATA11,135,33,9,239,19,13,1,1,9,31,21,10,97,8,12,30,25
2300 DATA0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0,13,2,9,31,21,13,0,3
2400 DATA1,8,143,12,0,13,1,1,9,239,19,10,195,16,2,0,13,2,9,31,21,13,0,1
2500 DATA8,143,12,0,13,1,1
2600 DATA8,97,8,11,135,33,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
2700 DATA13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16,11,62,42
2800 DATA0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,135,33,0,13,1,1,8,97,8
2900 DATA11,62,42,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
3000 DATA13,2,9,31,21,13,1,13,3,1,8,143,12,0,13,1,1,9,195,16,10,218,11,12,162,37
3100 DATA0,13,0,1,8,24,14,0,13,1,1,8,143,12,11,60,50
3200 DATA0,13,0,1,8,30,25,0,13,1,1,9,165,31,10,96,22,0,13,0,1,8,30,25
3300 DATA0,13,1,1,9,165,31,10,96,22,0,13,0,1,8,30,25,0,13,1,1
3400 DATA9,239,14,10,143,12,0,13,1,9,210,15,13,1,9,195,16,13,1,3
3500 DATA9,195,17,13,1,9,209,18,13,1,9,96,22,13,1,12,62,42,9,30,25,2,7,13,0,13,1
3600 DATA1,9,195,16,10,97,8,11,60,50,0,13,0,1,8,143,12,0,13,1,1
3700 DATA9,239,19,10,195,16,0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,62,42
3800 DATA0,13,1,1
3900 DATA9,239,19,10,195,16,11,60,50,0,13,2,9,31,21,13,1,13,3,1,8,143,12
4000 DATA12,62,42,0
4100 DATA13,1,1,8,143,10,12,135,33,0,13,0,1,8,24,14,0,13,1,1
4200 DATA9,31,21,10,195,16,0,13,0,1,8,143,10,0,13,1,1
4300 DATA9,31,21,10,195,16,12,30,25,0,13,0,1,8,143,10,0,13,1,1
4400 DATA8,48,11,11,156,26,0,13,1,11,49,28,13,1,1,11,135,33,0,13,1,1
4500 DATA9,96,22,10,24,14,11,223,39,0,13,0,1,12,162,37,0,13,1,1,11,223,39,0,13,0
4600 DATA1,12,156,26,0,13,3,11,49,28,13,3,1,9,31,21,10,97,8,12,30,25
4700 DATA0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0,13,2,9,31,21,13,0,3
4800 DATA1,8,143,12,0,13,1,1,9,239,19,10,195,16,2,0,13,2,9,31,21,13,0,1
4900 DATA8,143,12,0,13,1,1
5000 DATA8,97,8,11,135,33,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
5100 DATA13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16,11,62,42
5200 DATA0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,135,33,0,13,1,1,8,71,6
5300 DATA11,62,42,0,13,0,1,8,195,16,0,13,1,1,9,239,19,10,195,16,0
5400 DATA13,2,9,31,21,13,0,1,8,143,12,0,13,1,1,9,209,18,10,210,15,12,162,37
5500 DATA0,13,0,1,8,143,12,0,13,1,1,8,48,11,12,135,33
5600 DATA0,13,0,1,13,2,8,195,16,0,13,2,13,1,1,9,49,28,10,96,22,0,13,0,13,2,1
5700 DATA8,195,16,0,13,4,13,3,1,9,49,28,10,96,22,0,13,0,13,3,1,8,195,16,0,13,1
5800 DATA13,3,1,13,2
5900 DATA8,97,8,0,13,0,13,4,1,8,143,12,0,13,0,1,9,31,21,10,195,16,0,13,0,13,0
6000 DATA8,143,12,0,13,0,13,2,1,9,239,19,10,48,11,0,13,0,13,0,13,1,1
6100 DATA8,195,16,0,13,0,13,0,13,3,1,9,31,21,10,97,8,0,13,0,13,0,13,0,13,0,13,0
6200 DATA13,0,13,0
6300 DATA13,0,13,0,13,0,13,0,13,0,13,0,3,1,16,256
6400 IFA=0THENA=1:LOAD"AG ML",8,1
6402 Q=0:PRINT"[147][144][200]OLD ON [201]'M COMPOSING..."
6500 FORA=49920TO53247:READD:PRINT".";: IF D>255THENGOSUB40000:GOTO8100
6600 POKEA,D:Q=Q+1:IFQ>39THENPRINT"[145]";:FORW=1TO40:PRINT" ";:NEXT:PRINT:PRINT"[145][145]";:Q=0
6650 POKEA,D
6660 NEXTA
6700 DATA209,70,18,25,1,30,150,25,31,1,165,26,31,25,-1,30,26,25,31,1
6800 DATA165,150,31,28,-1,49,70,28,25,-1
6900 DATA30,150,25,21,-1,31,70,21,18,-1
7000 DATA209,150,18,18,0,209,70,18,25,1
7100 DATA30,150,25,31,1,165,26,31,25,-1,30,26,25,31,1
7200 DATA165,150,31,28,-1,49,70,28,37,1
7300 DATA162,380,37,31,-1,165,70,31,37,1
7400 DATA162,110,37,31,-1,165,26,31,37,1,162,26,37,31,-1,165,26,31,25,-1
7500 DATA30,150,25,18,-1,209,70,18,21,1
7600 DATA31,110,21,25,1,30,30,25,25,0,30,26,25,21,-1,31,26,21,18,-1
7700 DATA209,150,18,18,0,209,70,18,25,1
7800 DATA30,150,25,31,1,165,26,31,25,-1,30,26,25,31,1
7900 DATA165,150,31,28,-1,49,70,28,25,-1
8000 DATA30,230
8100 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+24,31:POKES+23,1:POKE992,65
8200 POKE993,17:POKE994,21:POKES+15,18:POKES+10,8
8300 POKES+5,149:POKES+12,150:POKES+19,154:POKES+6,198:POKES+13,213:POKES+20,244
8400 Z=0:POKES+22,200:Y=9
8500 POKES+3,2:POKES,209:POKES+1,18:POKES+7,179:POKES+8,18:FORT=1TO900:NEXT
8600 READA:READB:POKES,A:POKES+7,(A-19):POKES+14,(A+19):SYS49696:FORT=1TOB*Y
8700 NEXT
8800 READC:READD:READE:SYS49717:FORT=CTODSTEPE:POKES+1,T:POKES+8,T:POKES+15,T
8900 NEXT:Z=Z+1:IFZ=34THENPOKES+6,248:GOTO9100
9000 GOTO8600
9100 READA:READB:POKES,A:POKES+7,(A-19):POKES+14,(A+19):SYS49696:FORT=1TOB*Y
9200 NEXT
9300 POKES+11,16:POKES+18,20:FORT=1TO100:NEXT:POKES+7,62:POKES+8,42:POKES+18,0
9400 POKES+14,135:POKES+15,33:POKE994,17:POKE995,17:FORT=1TO50:NEXT
9500 SYS49696:FORT=1TO2000:NEXT
9600 POKES+11,16:POKES+18,16:POKES+7,166:POKES+8,37:POKES+14,110:POKES+15,31
9700 FORT=1TO50:NEXT
9800 SYS49696:FORT=1TO1500:NEXT:SYS49717:GOTO9900
9900 POKES+5,68:POKES+6,100
10000 POKES+12,32:POKES+13,246
10100 POKES+19,32:POKES+20,234
10200 POKES+10,6:POKES+17,8:POKES+22,50:POKES+23,4
10300 READH1:READL1:READH2:READL2:READH3:READL3
10400 IFH1>255THENSYS49717:GOTO20500
10500 IFH1>1GOTO10700
10600 POKES+4,64:POKES+11,16:POKES+18,64:FORT=1TO280:NEXT:GOTO10300
10700 POKES,L1:POKES+1,H1:POKES+7,L2:POKES+8,H2:POKES+14,L3:POKES+15,H3
10800 POKES+4,65:POKES+11,17:POKES+18,65
10900 FORT=1TO280:NEXT:GOTO10300
11000 DATA23,181,0,0,0,0
11100 DATA23,181,0,0,0,0
11200 DATA31,168,19,225,15,210
11300 DATA31,168,19,225,15,210
11400 DATA31,168,19,225,7,233
11500 DATA31,168,19,225,7,233
11600 DATA39,215,31,168,11,218
11700 DATA31,168,19,225,11,218
11800 DATA39,215,31,168,15,210
11900 DATA39,215,31,168,15,210
12000 DATA39,215,31,168,7,223
12100 DATA39,215,31,168,7,223
12200 DATA35,134,28,49,8,225
12300 DATA35,134,28,49,8,225
12400 DATA31,165,26,156,10,143
12500 DATA31,165,26,156,10,143
12600 DATA31,165,26,156,5,71
12700 DATA31,165,26,156,5,71
12800 DATA26,156,21,31,7,119
12900 DATA26,156,21,31,7,110
13000 DATA23,181,19,225,7,233
13100 DATA23,181,19,225,7,233
13200 DATA23,181,19,225,3,244
13300 DATA0,0,0,0,0,0
13400 DATA23,181,0,0,0,0
13500 DATA23,181,0,0,0,0
13600 DATA31,165,19,225,15,210
13700 DATA31,165,19,225,7,233
13800 DATA31,165,19,225,9,247
13900 DATA31,165,19,225,11,218
14000 DATA39,215,31,165,15,210
14100 DATA31,165,19,225,15,210
14200 DATA39,215,31,165,7,233
14300 DATA39,215,31,165,7,233
14400 DATA39,215,31,165,11,218
14500 DATA39,215,31,165,11,218
14600 DATA35,134,31,165,11,48
14700 DATA35,134,31,165,11,48
14800 DATA47,107,29,208,10,143
14900 DATA47,107,29,208,10,143
15000 DATA47,107,29,208,10,143
15100 DATA47,107,29,208,10,143
15200 DATA47,107,29,208,8,225
15300 DATA47,107,29,208,8,225
15400 DATA47,107,29,208,5,237
15500 DATA47,107,29,208,5,237
15600 DATA47,107,29,208,5,237
15700 DATA0,0,0,0,0,0
15800 DATA39,223,31,165,0,0
15900 DATA39,223,31,165,0,0
16000 DATA47,107,39,223,15,210
16100 DATA47,107,39,223,15,210
16200 DATA47,107,39,223,7,233
16300 DATA39,215,31,165,7,233
16400 DATA47,107,39,223,11,218
16500 DATA39,215,31,165,11,218
16600 DATA31,168,19,225,13,78
16700 DATA31,168,19,225,13,78
16800 DATA31,168,19,225,6,167
16900 DATA31,168,19,225,6,167
17000 DATA23,181,19,225,0,0
17100 DATA23,181,19,239,0,0
17200 DATA26,156,21,31,10,143
17300 DATA26,156,21,31,10,143
17400 DATA26,156,21,31,5,71
17500 DATA31,155,26,156,5,71
17600 DATA31,175,26,156,10,143
17700 DATA26,156,21,31,10,143
17800 DATA23,181,19,225,15,210
17900 DATA23,181,19,225,15,210
18000 DATA23,181,19,225,7,233
18100 DATA0,0,0,0,0,0
18200 DATA23,181,0,0,0,0
18300 DATA23,181,0,0,0,0
18400 DATA31,168,19,225,15,210
18500 DATA31,168,19,225,7,233
18600 DATA31,168,19,225,9,247
18700 DATA31,168,19,225,11,218
18800 DATA39,223,31,165,15,210
18900 DATA31,168,19,225,15,210
19000 DATA39,215,31,165,7,233
19100 DATA39,215,31,165,9,247
19200 DATA39,215,31,165,11,218
19300 DATA39,215,31,165,15,210
19400 DATA35,134,21,31,14,239
19500 DATA35,134,21,31,11,218
19600 DATA31,168,19,225,15,210
19700 DATA31,168,19,225,15,210
19800 DATA31,168,19,225,11,218
19900 DATA31,168,19,225,11,218
20000 DATA31,168,19,225,9,245
20100 DATA31,168,19,225,9,245
20200 DATA31,168,19,225,7,233
20300 DATA31,168,19,225,7,233
20400 DATA256,0,0,0,0,0,0,0
20500 POKES+22,170:POKES+23,244
20600 POKE251,0:POKE252,195:POKE820,65:POKE821,65:POKE822,33:POKES+3,2
20700 POKES+5,64:POKES+12,37:POKES+19,37:POKES+6,244:POKES+13,148:POKES+20,148
20800 POKES,30:POKES+1,25:POKE1020,30:POKE1021,25:POKE823,240:POKE824,120
20900 POKE825,40:POKE826,75:POKE827,105
21000 POKES+10,1:POKES+9,100:FORT=1TO100:NEXT
21100 SYS49152:FORT=1TO1000:NEXT:POKES+24,0
30000 : REM    DO AGAIN
30002 PRINT"[147][215]ANT TO PLAY IT AGAIN, [211]AM?";
30004 POKE198,0:WAIT198,1:GETK$
30006 IFK$<>"Y"ANDK$<>"N"THEN30004
30008 IFK$="Y"THENCLR:RESTORE:GOTO6402
30010 IFK$="N"THEN63000
30015 GOTO30004
40000 PRINT"[147]    [193]ND NOW,":PRINT:PRINT
40002 PRINT"              WE PRESENT":PRINT
40006 PRINT
40008 PRINT"             [193][205][193][218][201][206][199][160][199][210][193][195][197]":PRINT:PRINT
40012 PRINT"              ARRANGED BY":PRINT
40014 PRINT:PRINT
40016 PRINT"              [212]OM [202]EFFRIES"
40018 PRINT
40020 RETURN
63000 PRINT"LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
63002 POKE631,13:POKE632,13:POKE198,2:END